From 8d7e4e80d82d72bc3891766b511b8c5bd834d95a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 14 May 1993 18:02:55 +0000 Subject: [PATCH] (isearch-mode-map): Handle any length vector in keymap. (isearch-char-to-string): Handle non-character events properly. --- lisp/isearch.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 389e21aa077..0fd896f1c70 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte -;; |$Date: 1993/04/14 19:40:53 $|$Revision: 1.30 $ +;; |$Date: 1993/04/23 07:31:14 $|$Revision: 1.31 $ ;; This file is not yet part of GNU Emacs, but it is based almost ;; entirely on isearch.el which is part of GNU Emacs. @@ -92,8 +92,11 @@ ;;;==================================================================== ;;; Change History -;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.30 1993/04/14 19:40:53 rms Exp eric $ +;;; $Header: /home/fsf/rms/e19/lisp/RCS/isearch.el,v 1.31 1993/04/23 07:31:14 eric Exp rms $ ;;; $Log: isearch.el,v $ +; Revision 1.31 1993/04/23 07:31:14 eric +; Replaced all fsets with defaliases. +; ; Revision 1.30 1993/04/14 19:40:53 rms ; Doc fixes. ; @@ -326,7 +329,9 @@ Default value, nil, means edit the string instead.") ;; Printing chars extend the selection by default. (setq i ?\ ) - (while (< i 128) + (or (vectorp (nth 1 map)) + (error "The initialization of isearch-mode-map must be updated")) + (while (< i (length (nth 1 map))) (define-key map (make-string 1 i) 'isearch-printing-char) (setq i (1+ i))) @@ -1472,7 +1477,9 @@ have special meaning in a regexp." (defun isearch-char-to-string (c) (if (integerp c) (make-string 1 c) - (make-string 1 (event-to-character c)))) + (if (and (symbolp c) (get c 'ascii-character)) + (make-string 1 (get c 'ascii-character)) + (make-string 1 (event-to-character c))))) (defun isearch-text-char-description (c) (isearch-char-to-string c)) -- 2.30.2